home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / stos / stos_34 / stos_acc / inpdata2.acb (.txt) next >
Atari STOS Basic  |  1987-04-21  |  7KB  |  124 lines
  1. 10 REM ****************************************************
  2. 100 REM ****************************************************
  3. 1000 IF
  4. 1010 ON ERROR
  5. 1020 IF
  6. 1030 IF
  7. 1040 IF
  8. 1050 IF
  9. 1060 ON ERROR
  10. 1070 IF
  11. 1080 CLS
  12. 1090 PRINT
  13. 110 REM 
  14. 1100 LOCATE
  15. 1110 REM +++ Line 1170 in  INPDATA.ACB  is wrong +++
  16. 1120 REM +++ Memory banks start at No 1 (not 0)  +++
  17. 1130 FOR
  18. 1140 TRAP
  19. 1150 CLEAR KEY
  20. 1160 BOOM
  21. 1170 RESUME
  22. 1180 ON ERROR
  23. 1190 CLS
  24. 120 KEY
  25. 1200 GOTO
  26. 1210 REM 
  27. 1220 REM rkably, that's all
  28. 1230 REM ~~~~~~~~~~~~~~~~~~
  29. 130 DIM
  30. 140 FOR
  31. 150 DIM
  32. 160 VARNAME
  33. 170 FOR
  34. 180 READ
  35. 190 POKE
  36. 20 REM *  Program name   : INPDATA2.ACB                   *
  37. 200 NEXT
  38. 210 DATA
  39. 220 DATA
  40. 230 DATA
  41. 240 DATA
  42. 250 DATA
  43. 260 DATA
  44. 270 DATA
  45. 280 DATA
  46. 290 DATA
  47. 30 REM *  Function       : STOS bank data entry facility  *
  48. 300 DATA
  49. 310 DATA
  50. 320 DATA
  51. 330 DATA
  52. 340 DATA
  53. 350 DATA
  54. 360 DATA
  55. 370 TRAP
  56. 380 CLS
  57. 390 LOCATE
  58. 40 REM *  Original author: Francois Lionet                *
  59. 400 LOCATE
  60. 410 LOCATE
  61. 420 LOCATE
  62. 430 IF
  63. 440 REPEAT
  64. 450 IF
  65. 460 CLS
  66. 470 LOCATE
  67. 480 PRINT
  68. 490 PRINT
  69. 50 REM *  Updated by     : Edgar Evans                    *
  70. 500 PRINT
  71. 510 LOCATE
  72. 520 CLS
  73. 530 HOME
  74. 540 PRINT
  75. 550 PRINT
  76. 560 LOCATE
  77. 570 WINDOPEN
  78. 580 FOR
  79. 590 LOCATE
  80. 60 REM *                   & Laurence Myears              *
  81. 600 NEXT
  82. 610 HOME
  83. 620 RESERVE
  84. 630 VARNAME
  85. 640 IF
  86. 650 REM 
  87. 660 REM +++  Load a partfile  ++++++++
  88. 670 GOTO
  89. 680 ON ERROR
  90. 690 REM +++ Add length of partfile to start address +++
  91. 70 REM *  Why updated    : To allow the user to save and  *
  92. 700 OPEN IN
  93. 710 REM 
  94. 720 REPEAT
  95. 730 TRAP
  96. 740 VARNAME
  97. 750 VARNAME
  98. 760 IF
  99. 770 IF
  100. 780 PUT KEY
  101. 790 IF
  102. 80 REM *                   reload partwork,               *
  103. 800 CENTRE
  104. 810 LOCATE
  105. 820 IF
  106. 830 IF
  107. 840 NEXT
  108. 850 LOCATE
  109. 860 IF
  110. 870 VARNAME
  111. 880 IF
  112. 890 VARNAME
  113. 90 REM *                   & to redefine numeric keypad.  *
  114. 900 FOR
  115. 910 NEXT
  116. 920 PRINT
  117. 930 VARNAME
  118. 940 CLS
  119. 950 REM 
  120. 960 REM 
  121. 970 VARNAME
  122. 980 IF
  123. 990 IF
  124.